home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Internet Info 1994 March
/
Internet Info CD-ROM (Walnut Creek) (March 1994).iso
/
networking
/
terms
/
kermit
/
charsets
/
isodemo2.c
< prev
next >
Wrap
C/C++ Source or Header
|
1993-07-03
|
2KB
|
75 lines
/* A short program to display MS Kermit VT320 emulation character sets */
/* Writes output to stdout, so best redirect it to a file for replaying */
/* From Joe Doupnik, 27 June 1989 */
#include <stdio.h>
#define SO 14
#define SI 15
#define ESC 27
/* Nat ASCII Latin Su G Sp G UPSS Tech Alt-Rom */
char *set[] = {" ", ")B", "-A", ")%5", ")0", ")<", ")>", ")1"};
main()
{
int i, j;
void showtable(), at();
fputc(ESC, stdout); fputc('c', stdout); /* master reset */
at(1,2);
fputs("\n National ASCII Latin-1 Sup Gr Spc Gr", stdout);
fputs(" UPSS Tech Alt-Rom", stdout);
fputs("\n B A %5 0 ", stdout);
fputs(" < > 1", stdout);
fputs("\n ", stdout);
for(i = 0; i < 8; i++) /* label columns */
{
for (j = 2; j < 8; j++)
printf("%#1d", j);
fputs(" ", stdout);
}
for (i = 0; i < 16; i++) /* label rows */
{
at(2, 6 + i);
printf("%#2d: ", i);
}
fputc(ESC, stdout); fputs("[?42h", stdout); /* National Repl Chars */
showtable(6, 6);
fputc(ESC, stdout); fputs("[?42l", stdout); /* Disable NRCs */
for (i = 1; i < 8; i++) /* do the other char sets */
{
fputc(ESC, stdout); fputs(set[i], stdout);
showtable(6+i*9, 6);
}
at(1, 23); /* nail down cursor */
}
void
showtable(c, r)
int c, r; /* display 96 characters in column format */
{
int column, row;
fputc(ESC, stdout); fputc('7', stdout); /* save cursor */
fputc(SO, stdout); /* GL to G1 */
for (column = 2; column < 8; column++) /* cols 2..7 */
for (row = 0; row < 16; row++) /* rows 0..15 */
{
at(c+column-2, r+row); /* position cursor */
fputc(row + column * 16, stdout); /* show GL char */
}
fputc(SI, stdout); /* GL to G0 */
fputc(ESC, stdout); fputc('8', stdout); /* restore cursor */
}
void
at(col, row)
int col, row; /* position cursor at row, column */
{
fputc(ESC, stdout);
printf("[%d;%dH", row, col); /* move to row, col */
}
/* the end */